* comint.el (comint-match-partial-pathname): Move "---" range in

	character class in regular expressions to the end of the character
	class; this way, it meets the POSIX regexp specs.

diff --git a/lisp/comint.el b/lisp/comint.el
index 00c820af4a8c408712a7e56b00092603551f0d4b..faa27f64d4db6507b4c015d787c86e0c09a9e1a6 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1037,11 +1037,11 @@ Useful if you accidentally suspend the top-level process."
 (defun comint-match-partial-pathname ()
   "Returns the filename at point or causes an error."
   (save-excursion
-    (if (re-search-backward "[^~/A-Za-z0-9---_.$#,=]" nil 'move)
+    (if (re-search-backward "[^~/A-Za-z0-9_.$#,=-]" nil 'move)
        (forward-char 1))
     ;; Anchor the search forwards.
-    (if (not (looking-at "[~/A-Za-z0-9---_.$#,=]")) (error ""))
-    (re-search-forward "[~/A-Za-z0-9---_.$#,=]+")
+    (if (not (looking-at "[~/A-Za-z0-9_.$#,=-]")) (error ""))
+    (re-search-forward "[~/A-Za-z0-9_.$#,=-]+")
     (substitute-in-file-name
      (buffer-substring (match-beginning 0) (match-end 0)))))